home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / UNZIP-DEMO / ZIPFILES / net00 / 00009.ls < prev    next >
Encoding:
Text File  |  1995-05-25  |  3.0 KB  |  157 lines
  1. on BUT f, t
  2.   set ws to the clickOn
  3.   set b to the castNum of sprite ws
  4.   set c to 0
  5.   repeat while c < f
  6.     set the castNum of sprite ws to b + c
  7.     updateStage()
  8.     startTimer()
  9.     repeat while the timer < t
  10.     end repeat
  11.     set c to c + 1
  12.   end repeat
  13.   set the castNum of sprite ws to b
  14.   updateStage()
  15. end
  16.  
  17. on butq1 ws, f, t
  18.   set b to the castNum of sprite ws
  19.   set c to 0
  20.   repeat while c < f
  21.     set the castNum of sprite ws to b + c
  22.     updateStage()
  23.     startTimer()
  24.     repeat while the timer < t
  25.     end repeat
  26.     set c to c + 1
  27.   end repeat
  28.   set the castNum of sprite ws to b
  29.   updateStage()
  30. end
  31.  
  32. on buteye t
  33.   cursor(200)
  34.   set ws to the clickOn
  35.   set b to the castNum of sprite ws
  36.   set c to 0
  37.   repeat while c < 4
  38.     set the castNum of sprite ws to b + c
  39.     updateStage()
  40.     startTimer()
  41.     repeat while the timer < t
  42.     end repeat
  43.     set c to c + 1
  44.   end repeat
  45.   set c to 3
  46.   repeat while c > -1
  47.     set the castNum of sprite ws to b + c
  48.     updateStage()
  49.     startTimer()
  50.     repeat while the timer < t
  51.     end repeat
  52.     set c to c - 1
  53.   end repeat
  54.   cursor(0)
  55. end
  56.  
  57. on butclok t
  58.   set ws to the clickOn
  59.   set b to the castNum of sprite ws
  60.   set c to 0
  61.   repeat while c < 5
  62.     set the castNum of sprite ws to b + c
  63.     updateStage()
  64.     startTimer()
  65.     repeat while the timer < t
  66.     end repeat
  67.     set c to c + 1
  68.   end repeat
  69.   startTimer()
  70.   repeat while the timer < 15
  71.   end repeat
  72.   set c to 4
  73.   repeat while c > -1
  74.     set the castNum of sprite ws to b + c
  75.     updateStage()
  76.     startTimer()
  77.     repeat while the timer < t
  78.     end repeat
  79.     set c to c - 1
  80.   end repeat
  81. end
  82.  
  83. on pic1but t
  84.   set c to 0
  85.   set b to the castNum of sprite 15
  86.   repeat while c < 3
  87.     set the castNum of sprite 15 to b + c
  88.     updateStage()
  89.     startTimer()
  90.     repeat while the timer < t
  91.     end repeat
  92.     set c to c + 1
  93.   end repeat
  94.   startTimer()
  95.   repeat while the timer < 15
  96.   end repeat
  97.   set c to 2
  98.   repeat while c > -1
  99.     set the castNum of sprite 15 to b + c
  100.     updateStage()
  101.     startTimer()
  102.     repeat while the timer < t
  103.     end repeat
  104.     set c to c - 1
  105.   end repeat
  106. end
  107.  
  108. on pic2but t
  109.   set c to 0
  110.   set b to the castNum of sprite 16
  111.   repeat while c < 3
  112.     set the castNum of sprite 16 to b + c
  113.     updateStage()
  114.     startTimer()
  115.     repeat while the timer < t
  116.     end repeat
  117.     set c to c + 1
  118.   end repeat
  119.   startTimer()
  120.   repeat while the timer < 15
  121.   end repeat
  122.   set c to 2
  123.   repeat while c > -1
  124.     set the castNum of sprite 16 to b + c
  125.     updateStage()
  126.     startTimer()
  127.     repeat while the timer < t
  128.     end repeat
  129.     set c to c - 1
  130.   end repeat
  131. end
  132.  
  133. on pic3but t
  134.   set c to 0
  135.   set b to the castNum of sprite 17
  136.   repeat while c < 3
  137.     set the castNum of sprite 17 to b + c
  138.     updateStage()
  139.     startTimer()
  140.     repeat while the timer < t
  141.     end repeat
  142.     set c to c + 1
  143.   end repeat
  144.   startTimer()
  145.   repeat while the timer < 15
  146.   end repeat
  147.   set c to 2
  148.   repeat while c > -1
  149.     set the castNum of sprite 17 to b + c
  150.     updateStage()
  151.     startTimer()
  152.     repeat while the timer < t
  153.     end repeat
  154.     set c to c - 1
  155.   end repeat
  156. end
  157.